object frmReceberRetorno: TfrmReceberRetorno
  Left = 254
  Top = 253
  Width = 723
  Height = 337
  Caption = 'Baixa autom'#225'tica de titulos a receber'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 96
    Top = 16
    Width = 3
    Height = 13
  end
  object sg_records: TStringGrid
    Left = 8
    Top = 40
    Width = 705
    Height = 257
    FixedCols = 0
    RowCount = 2
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSizing, goColSizing, goRowSelect]
    TabOrder = 0
    ColWidths = (
      104
      302
      114
      114
      81)
    RowHeights = (
      24
      24)
  end
  object btn_retorno: TButton
    Left = 8
    Top = 8
    Width = 185
    Height = 25
    Caption = 'Abrir arquivo de Retorno'
    TabOrder = 1
    OnClick = btn_retornoClick
  end
  object od_retorno: TOpenDialog
    Left = 656
    Top = 200
  end
  object qry_baixa_Autom: TSQLQuery
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftCurrency
        Name = 'VALOR_RECEBIDO'
        ParamType = ptInput
      end
      item
        DataType = ftCurrency
        Name = 'RECEBIMENTO'
        ParamType = ptInput
      end
      item
        DataType = ftDate
        Name = 'DATA_BAIXA'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'FORMA'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'NOSSONUMERO'
        ParamType = ptInput
      end>
    SQL.Strings = (
      'UPDATE RECEBER_TITULOS_PARCELAS '
      'SET  REP_VALOR_RECEBIDO = :VALOR_RECEBIDO,'
      '  REP_RECEBIMENTO'#9'= :RECEBIMENTO,'
      '  REP_DTHBAIXA = :DATA_BAIXA,'
      '  REP_FORMAPGTO = :FORMA'
      'WHERE REP_NOSSO_NUMERO = :NOSSONUMERO')
    SQLConnection = DtmGeral.ConexaoBanco
    Left = 392
    Top = 8
  end
end
